home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xmodifierkeymap.t < prev    next >
Text File  |  1990-06-01  |  499b  |  10 lines
  1. (herald xmodifierkeymap (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XMODIFIERKEYMAP) (CONS 'XMODIFIERKEYMAPP (MAKE-BYTEV 8)))
  3. (DEFINE (XMODIFIERKEYMAP-MAX_KEYPERMOD X)
  4.         (MREF-INTEGER (CHK-XMODIFIERKEYMAPP X) 0))
  5. (DEFINE (XMODIFIERKEYMAP-MAX_KEYPERMOD! X Y)
  6.         (SET-MREF-INTEGER! (CHK-XMODIFIERKEYMAPP X) 0 Y))
  7. (DEFINE (XMODIFIERKEYMAP-*MODIFIERMAP X) (MREF-8-U (CHK-XMODIFIERKEYMAPP X) 4))
  8. (DEFINE (XMODIFIERKEYMAP-*MODIFIERMAP! X Y)
  9.         (SET-MREF-8-U! (CHK-XMODIFIERKEYMAPP X) 4 Y))
  10.